home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 15 Orphan Computers / TIPS.TXT < prev    next >
Text File  |  2019-04-13  |  2KB  |  42 lines

  1. from:"REM" Vol.3  Issue 2     March 84
  2. the newsletter of the
  3. Commodore Users Group of Wichita Inc.
  4. P.O. Box 593, Wichita, Ks. 67201-0593
  5. VIC TIPS   
  6. Submitted by Trevor B. Roydhouse,
  7. NSW, Australia
  8.    No doubt you have noticed that Commodore computers refuse to accept leading spaces when they are returned as part of a response to an INPUT statement.  A simple way to overcome this is to put SHIFTed spaces at the start (and end if required) because shifted spaces are stored as different characters from ordinary spaces and the computer accepts them as part of the string.
  9. A more involved way around this is to print quotes at the beginning of the string that is to be the input.  The advantage of this is that commas, semi-colons, and colons separate statements as well.  Colons and commas are use to separate statements when multiple inputs are requested by the computer and when put as part of an input string or number the program continues but the message EXTRA IGNORED is displayed and the comma and everything after it is ignored.  Using the quotes to start your input string allows the entry of cursor controls, too, which might be handy fo    some applications.   
  10.    HALF SCREEN REVERSAL for Vic
  11. 10 N=832
  12. 20 READ D: IF D=-1 THEN 90
  13. 30 POKE N,D:N=N+1:GOTO 20
  14. 40 DATA 162, 242, 189, 255, 29, 73
  15. 50 DATA 128, 157, 255, 29, 202, 208
  16. 60 DATA 245, 169, 6, 162, 242, 157
  17. 70 DATA 255, 149, 202, 208, 250, 86
  18. 80 DATA -1
  19. 90 PRINT "CLR" SPC(115) "PRESS A KEY"
  20. 100 GET A$: IF A$="" THEN 100
  21. 110 SYS 832: GOTO 90
  22. Try changing the "6" in line 60 to "32"
  23. ------------
  24.    HALF SCREEN SCROLL for Vic
  25. 10 N=832
  26. 20 READ D:IF D=-1 THEN 150
  27. 30 POKE N,D:N=N+1:GOTO 20
  28. 40 DATA    62, 241, 189, 255, 29, 157
  29. 50 DATA 0, 30, 202, 208, 247, 169, 6
  30. 60 DATA 162, 241, 157, 255, 149, 202
  31. 70 DATA 208, 250, 169, 32, 162, 0, 157
  32. 80 DATA 0, 30, 157, 22, 30, 157, 44
  33. 90 DATA 30, 157, 44, 30, 157, 66, 30
  34. 100 DATA 157, 88, 30, 157, 110, 30
  35. 110 DATA 157, 132, 30, 157, 154, 30
  36. 120 DATA 157, 176, 30, 157, 198, 30
  37. 130 DATA 157, 220, 30, 86
  38. 140 DATA -1
  39. 150 PRINT "<CLR>"SPC(115) "PRESS A KEY"
  40. 160 GET A$: IF A$="" THEN 160
  41. 70 SYS 832: GOTO 150
  42.